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Ll 
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LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 
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16-SEP-1984 00:23:22 VAX/VMS Macro V04-00 


Sn 


M11 
a "$$Ep-1986 99:42:83 Ctanne.Saesorscvrpr.man;1 "29° 


1 TITLE grssscyrtor 
§ -IDENT /1-017/ 3; File: OTSCVTDT.MAR Edit: LEB1017 
: | enneneceasoeenensdcocnnenesubeescneenesebonnaseneeenceseeesensnsenseoneeeess 
;* . J 
$ 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY a 
8 :* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
10 - ALL RIGHTS RESERVED. * 
Py ot 
11 ;* THIS SOFTWARE it cyan suce UNDER A LICENSE AND MAY BE USED AND corite * 
4 \ 3* ONLY IN wet ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
13 ;* INCLUSION OF THE ABOVE gilli NOTICE. THIS SOFTWARE OR ANY OTHER * 
000 14 ;* COPIES OHEREOR MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
B88 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
0 3 16 :* TRANSFERRED. . 
0000 18 * THE Ae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8008 ? ‘* CORPORATION. * 
3 ® 
$609 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
8008 Z :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
P} ® 
0000 5 ;* “ 
444 § FRRAAARAAAA AAA AEA TARA AAA AA AAA AAA AERA AAAAAAEAAAATAEREREAAE Eee 
$0c0 8; 
0000 9 3+ 
4464 0; ; FACILITY: Language-independent Support Library 
$600 é ? ABSTRACT: 
B68 : 
000 ® 3 A routine to convert an F or D-floating value to a string of 
0000 > 3 ASCII digits and an exponent. It is meant to be used as 
43 § : a base for floating point output conversion routines. 
0900 38 : ENVIRONMENT: User Mode, AST Reentrant 
0000 40 :-- 
sit $3 ; AUTHOR: Steven B. Lionel, CREATION DATE: 24-May-1979 


—_—__—_- Cr -  e eeO- a SS 


" 
a aaa Edit History "BSEp=19be 19:93:85 MONIC. SRESGrSevrot.mar:1 729 
.SBTTL Edit History 


; 1-001 - Or tajnel. oyagr ic conversion algorithm by Tryggve Fossum. 
“$08 = Make routine an _R8 so Fas ge conform with OTSS$CVTRT. $0 3-Jul-1979 
= Add extra lon Bt B-Jut to a 5 Wrene to prevent clobbering of 
O° 


4 = Don't use RY or R ut “1s SBL 11-Jul-1979 
= On right-rounding to zero, don't efi*d # see $i 90° SBL 16-Jul-1979 
$ - AL x $yP0 in stack frame setup. a Pa TF ph 
07 - round ng o\eer tthe so that tat -RND would cause 
a ng to the right of the puaber of "the tequesto digits, 


anne es 
; BA AN. SBL Beso 978 
; 1-008 - Clear 96 bits ahead of fraction instead of se SBL 30-July-1979 
; 64 bits ahead of Fracttek. Use 
: register in inner convert loop. sBL 21-Jan-1 
; 1-010 = Compute number of fraction longwords sorreassy § at pei. FRACT, 
e 1- Jul 1 
; 1-011 = Make sure all bits between significand and binary point are 
; sieeres when value is_an integer, to assure accurate low-order 
: digits. JAW 26-Jul-1981 
; 1-012 - If we tind a reserved operand, return zero if it doesn't get 
; replaced b H a non-reserved value. +o 9-0ct-81 
- Add entry or F_floating. SBL 29-Oct-1 
1-014 = Remove CVTFD indtruction, {rom OTSSSCVT_F_T_R SBL 27-Apr-1983 
- Fix bu introduced abs 014. SBL 17-May-1983. 

~ Removed the CVTLP, CVTPS, and SKPC instructions to improve the 
performance of this Pacetion Instead, EDIV soe icus prone were 
used. I also fixed a couple of comments. JCW 31-OCT-1983 
1-017 - Move tables after PSECT definition. LEB 23<Mar-1986 
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SSNS SSID DP PAA AAA DOD IIIT 


«SBTTL DECLARATIONS 
; INCLUDE FILES: 


; EXTERNAL DECLARATIONS: 


16-SEP-1984 
6-SEP-1984 


99:93:83 HOaN Te Resor eeuro mars 1 


Heat CO) HHO OMO WW > 
PPP FMB WW OVE ee et ee PN ee tt 


H 
i | 
i 
5 -DSABL GBL 3; Prevent undeclared 
: ; symbols from vores 
8 ; automatically global. 
0 ; MACROS: 
91; 
ie 
0 9% : EQUATED SYMBOLS: 
0 95; 
5 89 
0 38 ; PSECT DECLARATIONS: 
0 100 -PSECT _OTSSCODE PIC, USR, CON, REL, LCL, SHR, - 
3 101 EXE, RD, NOWRT, LONG 
0 108; 
99 104 : OWN STORAGE: 
00 19¢ : CONSTANTS 
00 108 
0 109 ASCII_ZEROES: 
30303030 30303030 09 119 “= ,QUAD *x3030303030303030 ; 8 copies of the character 0 
0 0 08 112 TABLE: .WORD “x3030, “x31 3230, *x3330, *x3430 
0 36 530 1 118 ~WORD %*X3530, *x36 35 0, *xX3830, *x3930 
§ 1 1 2 1 1¢ 114 «WORD °*X3031, *x3131, § ‘es “Eh 1, *x3431 
1 1 1 S +99 -WORD “*X3531, *x3631, 1, *xX3831, *x3931 
$ 1 2 0 116 eWORD “X 2 ~ “x3132, $ . - » “x34 
6 A 117 - WORD “x Mee 6 3 ~ “x39 
$ 1 2 44 118 eWORD “XxX - WES SS. OR ¢ » Ee ~ "4 
4E 11 SWORD *K3533, *x3633, “x3733, *X3B33, “X39 | 
$ 134 5 120 «WORD “*X3054, *X35134, “xX $ 4, *K3334, *x3434 
4 é 121 «WORD °*X35354, *X3634, °X3734, *X3834, °X3934 
$3 3 3 AC 136 -WORD “*X go kalee> ckaeea. ok a+ ataeee 
3 1 RD “x » “K3635, “x » 7 » “x3935 
¢ 1 126 wORD “x » “K3136, *x : » “K3336, *x3436 
A 125 -WORD “XxX . “x36 . “x , = g. “x39 $ 
¢ Sn% $ WORD °Xx3037, *x3137, *x é » “x3337, *x34 | 
7 7 7 9 1 WORD “°xX3557, *xX56357, °X3737, *xX3837, °x3937 
§ 2 A 1 3 ~WORD “XxX » “Esl ae R $ , = » “x34 
: 1 WORD -F ~ “x3638, “xX « “x . “x39 
$ 9 BC 1 0 ~ WORD “x oO -z 1 e “x $ e “x eo “x 4 | 
9 3639 131 WORD *x3539; *x3639. *x3739; °x3839; *x3939 
1 q ; Stack frame offsets from R7 


Ee SSS - —_— 


12 
a DECLARATIONS TEPSERSTSES OREFB:83 UOTONTE.SRESSr¥OUTOP many 2° chy 


3; Common frame fo kernel convert foutraey | 


F PACKED = s fas for packed representation 

f FLAGS = PACKED -4 5 py ags s for outer and inner routines 

F SIG_DIGITS = FLAGS = 4 ; Significant digits 

e STRING_ADDR = SIG DIGITS = 4 : Ad ress of toms sertag 

a SIGN ="STRING_ADDR = 4 ; Sign 
f DEC_EXP = SIGR = 4 ; Decimal exponent 

fF OFFSET = DEC_EXP = 4 ; Offset 

i RT_RND = OFFSET = 4 H 

f COMMON_FRAME = RT_RND ; Common frame size 


= 
: Inner routine frame pointed to by R8 during conversion 


Right round point 


F INT_HI = -16 ; Highest integer part 
F BIN PT = INT HI = 12 ; Binary point 

F FRACT LIM = SIN PT = 38 3 Lowest fraction bits 
F DIGITS = FRACT_CIM - ; Digits radix 10**9 

£ BIN_EXP = DIGITS = 4 ; Saved binary exponent 
F LONG_COUNT = BIN_EXP = 4 ; Longword count 

a TEMP’ = LONG_COUNT = 4 ; Temporary 

F LOCAL_FRAME = TEMP ; Local frame size 


PUPV SVS Bs Be BS BS BB EAA 
IAN E AN 0 OD NAUSEA O OONOUNE 


> tb bb 2 2» — 2 2s — > — — 2s 2s 2b 2» > 2» 2 + 4 9 


TSSSCVTDT 16-SEP-1984 00:23: AX/VMS Macro Vv04-00 Pp 5 
argh OTSSSCVT_D.T = Convert D floating to te ‘Sesepeiope $1i93285 LOTAN TS eaesorecuTos.man:1 2% (2)! 


ve -SBTTL OTSSSCVT_D_T = Convert D floating to text 
; FUNCTIONAL DESCRIPTION: 
This routine converts a D-floating point value to a string 
of ASCII i be It is intended to form the base of a 
language's floating point output conversion routine. 
OTSSSCVT_F_T_R& converts F_floating. 


CALLING SEQUENCE: 


MOVAB common_frame, R1 ; See common_frame definition above 
MOVL string_ length, STRING _LEN(R1) 

MOVL string address, STRING_ADDR(R1) 

MOVL sig. digits, $16_DIGITSTR1) 

MOVL user_flags, FLAGS(R1) 

MOVL rt round, RT_RND(R1) =; Optional 


value, R 
J OTS$$CVT_D_T_R8 or OTSSSCVT_F_T_R8 
; outputs are: 
; 1 = unchanged 

offset 
DEC_EXP(R1) = decimal exponent 
SIGR(R1) = sign 


INPUT PARAMETERS: 


Sete te eee 
oO 
nm 
~n" 
nn 

mm 
= 
~ 
z 
_ 
~ 

‘ 


ooo 

SSSSSSSssssssssssss 
-4-4-4-4-4-4-4-4 4-4-4 4 4 4 4 
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\~4~-4-4-4-4 4-4-4 4-4-4 4 4 


SOOoooo 
coc7cso 
SOCOGOOOOOOSOOOOOCOOSOSOOOOOOOOSCSooOo 


Bete Se Se Se Se Se Ge Ge Ge Se Se Se Se Ge Ge Se Se Se Ge Se Se Se Se Se Se Se See Se tee 
“ 
oo 


is clear. The rounding takes 
place after the specified number 
of significant digits if that 
would be farther to the left. 


00 VALUE :; F or D-floating value to be converted 
00 SIG_DIGITS(R1) ; Number of a ficant digits to 
00 3 generate. If neither V_TRUNCATE 
00 ; or V_ROUND_RIGHT is set, the 
00 ; value will be rounded to this 
00D 3; many digits. 
0D FLAGS(R1) ; Caller supplied flags: 
0000001 OD V TRUNCATE = 24 ; Truncate, don't round. 
0000001 sit V_ROUND_RIGHT = 25 ; Round “'rt_round’’ digits to 
0D : right of decimal point. 
0D RT_RND(R1) ; Number of places to the right 
OD : of the decimal point to round 
00D ; after. Ignored if V_ROUND_RIGHT 


Not have valid digits after the 
requested number of significant 


gits. 
The Length MUST be at least: 


3 | § “OOO DODOOOOO000 O00 OOOO O09 00 09 09 09 09 09 0909 09 SI NI NIN INI NNIO AOA AAOAOOOM 


MEAN MOOD NAUN EWN O OD NAUE WN $$ O OD NAME WN 9 ODNOAU EWN OOO VNOUF W000 


PRIPDP PIP IPIPIPIMIPINININ INN IN AY a a a tt kk hh 


Sete Se Ge Se Se Se Ge Se Se Ge Se Ge Sse Ge Se Be Ge Se 


4 IMPLICIT INPUTS: 

° NONE 

: OUTPUT PARAMETERS: 

: out_string String with result. It will 
D 

D 

D 


1 
OTSSSCVT_D_T = Convert D floating to te b-SeP 


4-4 -4-4-4-4 4-4-4 4-4-4450 


OOoooooooo 
~~ 4-4-4-4-4-4-4 4-4-4 4 4 4 


Soooooooo 


“SECIS TESS GE. SeSSABATOO sn 


: (9s INTt (sig Mite ghar dk tdi A 
; the offset Tnto si string 

: which the eiret ie vdigit 
; & guarentes 


offset 


to be 4 = 
: ine signed decimal setaheal of 


exponent : 
; the value, assuming a radix +-tyage 


: innedi ately to the left of t 
; most Pa Mpa digit. 

; 21 value is negative 
; 9 if the value is zero 

: if the value is positive 


sign 


IMPLICIT OUTPUTS: 
NONE 
SIDE EFFECTS: 
Alters registers RO through R8. 


SS$_ROPRAND - If the value is a reserved operand 
SS$_ACCVIO » or other nasty errors if the Length of 
out =String is not enough (see foraute above). 
ThiS routine does not check the Length, it 
is up to the caller to insure the correct 
Length is present. 


SPE PWN inononononononononon) ] 2 


MEW OOONAUE WN O ODNAUE WH OOONO 


E 12 - Onn REE ; 


F 12 | 
TSSSCVTDT 16-SEP-1984 00:23: AX/VMS Macro V04-00 Page 7 
set} OTSS$CVT_D_T_RB o7SEp= 1986 99:93:85 EUTARTL. SREJOTSCVTDT MAR: 1 oy 
p 47 .SBTTL OTS$SS$CVT_D_T_RB | 
D i$ 3+ 
: : JSB entry point | 
AN ' 
D TSSSCVT_F_T_RB:: 
57 3} dO D 4 re MovL™ Ri, R7 ; Use R7 as common frame pointer 
1 Be D 5 CLRL R1 3; Clear “? part of value 
50 ge ? D § MOVF (RO), RO 3; Fetch and test for zero 
1 08 BRB COMMON_FD : Join common code | 
T T T_RB8:: 
37 51 00 DA 60 ssesncy mov. ‘ R1, R7 ; Use R7 as common frame pointer 
0 60 0D 61 MOVD (RO), RO : Fetch and test for zero 
BE $¢ coun fo ; and for reserved operand 
E 14 OOE 64 ~ BGTR VAL_POS ; Value is positive 
Os 19 Ee 65 BLSS VAL_NEG ; Value is negative 
b 1 E4 96 BSBB zg 6 : Value is zero 
51 5 D bes 6 MOVL R7, R1 3; Restore R1 
0 tH 69 RSB ; Return to caller 
OEA 0 VAL_NEG: 
tee Oe ae: b> ais 
OF 73 VAL_POS: , 
—E8 A? 01 00 1 RR MOVL #1, SIGN(R7) ; Set positive sign 
F4 7 TRACT: 
58 SE 00 bore 8 — MOVL SP, R8 ; RB points to local frame 
5E A 9E O0F7 78 MOVAB LOCAL_FRAME(SP), SP ; Set up local frame 
$2 50°” 08 ns ef Gore 60 shin ie ee [tie cae 
4 iS 104 81 BEQL ZERO °C” : Still reserved operand; give up 
50 50 10 9C€ 0106 Hf ROTL #16, RO, RO ; Make into proper fraction 
51 51 10 9 10A ROTL #16, Ri, R1 
52 “Ooondoso FCF Sie G8 State. : Hemove BRS an 
FB AS 7C 0117 CLRQ -B(R4) : clear some fraction bits 
02 011 114 i ane 208 3; in case value is < 2**-64, 
ee Ba Lie ee t Mycaivests frevser ghee 
11—E 291 : in case value is >= 2**88. 
F5 AG $8 » 2 11E 38 20$: INSV #0, R2, Ate -11(R4) ; Create fixed point binary 
FO AG 0 :.% 124 9 INSV R1, R2, # -7(R4) ; value with enough surrounding 
30 00 F CB O12A 29% BISL2 #*%800000, RO a a 
FD AG F 131 95 INSV RO, R2, #24, -3(R4) ; zeroes as ‘guard digits’. 
64 $3 F 137 3g INSV #0, R2, # $- (R4) 
04 A4 0 3 F 1 9 INSV #0, Re, # #4(R4) 
a MS Oise Sop Geb FRictlont ns” i Mega thantyenen® 
56 B4 ab 9E 014 MOVAB DIGI TS(RBD, R6 : R6 points to scratch area 
s gunk BH BL Bae ES a j SaveeR? ower can ute as temp 
F et ; How many ? 
ac as =655)—OoD 138 : MOVL RS, LONG_COUNT(R8) | 
| 


EP _- 


AF CVTOT 


OTSSSCVT_D_T_RB 


ae 


1 
1 
1 
1 
1 
1 
1 
1 
0 Q1 
¢ QI 
1 
1 
1 
1 
1 
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1 
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m 
DD 
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FRACT_ONLY: 
MNEGL 
BRW 


SIN NNO OOOO 
ADNAN L mn 
PROTO ee es 
MO OONOufS wn 

o 

| ond 

= 

rt 


"BSEb=19Be 99:93:83 ENGR TE SReSor¥eu Tos . man: 1 


ONE _LONG 
gue .tg 
Inf LOoP 
OUR_LONG 
INT_NEXT 


ADDR(R7), R 
BP), #*A/0/, 
(R?) 

7) 


#1, LONG_COUNT(R8) 
FORMAT 


1 ; Get 
1G_DIGITS(R 


; 1 longword 


; 2 or 3 longwords 
; Four longwords 


tring address 


; Clear offset and exponent 
; Zero has sign of zero 
; Return to caller 


; To note that there is no integer part 


:; Go directly to formatter 


», (RI) ; Zero fill string 


2 


Pigrecvter 


ib P=1984 


Numeric conversion routines -SEP-1984 


19 93:88 


; Find first non-zero 
; Not found. 


AX/VMS Macro V04-00 
LIBRTL.SRCJOTSCVTDT.MAR; 1 


nteger part of the value 
s done by repeated division 


; High part of dividend 


Use R4 as address pointer 


> Low part of dividend 


Get address pointer 

Are we missing some bits? 

No if zero 

Back up one lLongword 

Bump longword counter 

And try again 

Get first quadword of dividend 


Since this is really a 
quadword quotient, zero the 
higher lLongword. 

R7 is inner loop counter 

Is this dividend too large ? 
Skip adjustment if not 

Low part of dividend 


Divide by 10**9 
Set high bit 


; Get low part of dividend 


Divide and store result in (R4) 
Loop back 

Store result on stack 

loop back if not done 


Leu part of next dividend 
Branch if high longword is 0 
Convert one more lLongword 
ongword 
Go format them. 

Try next one. 


Found. 


Save longword count 
Restore R7 from where saved 


etting fraction digits. 
ulated and is stored in 


\7e : -SBTTL Numeric conversion routines 
17¢ 3+ 
15 5 ; This is the portion which converts the i 
17¢ 8 3; to 1-5 jongwords of radix 10**9. This i 
A Bap tr te 
17¢ 1 FOUR_LONG: 
51 D4 17C § CLRL R1 
54 FOAB OD 17 MOVAL INT_HI(RB), RS 
50 64 OD 1 4 MOVL (R4T,RO 3 
14 11 01 5 BRB INT_O1V 
1 § INT_LOOP: 
54 E4 A845 1») 187 MOVAL BIN_PT(R8)CRS], R4 : 
04 A4 D 18C¢ 8 TSTL 4(RZ) 3 
of 1 18F BEQL aye ; 
5 D6 0191 40 INCL R 3 
AC AB D6 0193 41 INCL LONG_ COUNT(R8) : 
EF 11 138 4 BRB InTt_CooP ; 
50 64 7D 019 43 10$: MOVQ (R4T, RO 3 
0198 344 INT_DIV: 
51 64 50 389ACA00 8F 78 0198 45 EDIV #*D1000000000,R0,(R4),R1 
04 A4 D4 BiA3 4 CLRL 4(R4) : 
1A7 4 : 
1A7 rt : 
57 55 00 1A7 4 MOVL R5, R7 : 
53 51 10€D6500 BF C¢ 1AA 50 30S: SUBL3 #*D500000000,R1,R3 ; 
19 01B2 51 BLSS 40$ 3 
52 74 4 $183 2§ MOVL -(R4) Re : 
51 64 52 3B9ACA00 8F i 3 7 EDIV #°D1060000000,R2, (R4),R1 
64 80000000 8F C8 1g 55 BISL #*x80000000, (R4) : 
. a 1¢ 28 BRB 6038 
50 4 00 1¢9 57 40S: MOVL -(R4), RO : 
51 64 50  3B9ACA00 8F a185 38 EDIV. #*D1060000000,R0,(R4),R1 
D2 57 +FS 01D5 60 60$: SOBGTR R7, 30$ 3 
86 2] 00 108 61 MOVL R1, (R6)+ 3 
A9 55 F 108 ¢ SOBGTR R5, INT_LOOP 3 
1DE 363 INT_NEXT: 
6 AC A8 90 135 64 MOVL LONG_COUNT(R8), R2 
5 3 Am D 1E 65 MOVaQ BIN PT(R8),R H 
86 04 A6 50 389ACA F e 1E 66 EDIV #°DT000000600,R0,4(R6), (R6 
1 1F 6 BEQL i : 
i) 1F o8 INCL R 3 
B4 A84 1) 1F4 § 10$: TSTL DIGITS(R8)CR2) 3 
1 178 0 BNEQ 20$ 3 
2 0 1FA 71 DECL R : 
£8 11 1FC i BRB 10$ 
AC a8 4 1F 73 20$: MOVL R2, LONG COUNT(R8) H 
5 f D 0 74 MOVL  (SP)+, R? : 
11 £3 BRB FORMAT 
7 8 3+ 
7 78 ; This routine initializes the pointer for 
7 79 ; The number of fraction longwords is calc 
07 80 ; LONG_COUNT(R8) for future calls. 
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51 

52 AC AB 

53 & nay 

50 G8 

50  3B89ACA00 8F 
83 8 


ww 
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Numeric conversion routines aed tt 99: #388 PTBRTL  SREIOTSCVTOS MAR; 1 Sat tS) 


1 ;- 

4 INIT_FRACT: 
SUBL a< ma et BIN tah if RO 

4 DIvLS #32, RO, LONG_COUNT(R8) 


3¢ 
$ ; This routine gets the next nine Srecsven digits. It is smart 


8 ; enough not to do EMULs on zero values. 
GET_FRACT: 
91 CLRL R1 ; Result is initially zero 
3 MOVL OU6_.COUNT (RS), R2 ; Get number of fraction longwords 
BGEQ 8 ; If not negative, return 
94 5$: MOVAL BIN_PT(RB)CR2), R3 : Get address of lowest Longword 
95 10$ MOVL (R3), RO : Get the Longword 
38 BLEQ 40$ : Beware of overflow on EMUL 
9 EMUL  #*D1000000000, RO, R1, RO 
a8 MOVL RO, (R3)+ ; Store result 
9 INCL R ; 1 less longword 
400 BLSS 10$ 3; Loop back if more 
$31 30$: RSB 
4 § 40$: BEQL 60$ ; Don't multiply a zero 
40 EMUL “01000000000, RO, R1, RO 
404 ADDL2 #*01000000000, R1 ; To prevent overflow 
405 MOVL 0, (R3)+¢ 3; Store result 
40 INCL R2 F less longword 
40 BLSS 10$ 3; Loop back if more 
408 RSB 
409 60$: MOVL R1, (R3)+ ; Store current product 
410 CLAL R1 
411 INCL R2 3; 1 less longword 
cig BLSS 10$ ; Loop back if more 
41 RSB 


J 12 
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at Character formatting routines misty 7 99:43:85 LIBRTL.SRCJOTSCVTDT.MAR; 1 as (7) 1- 


-SBTTL Character formatting routines 


—s 


+ 

After all the integer portion of the value has been converted to 
; longwords and stored, the integer part is then converted to 
characters and the fraction cart, if any, is converted. 


FORMAT: 


51 B4 Abie MOVL | aiadattaa R1 af 


e V 
extract two lsd 


55 EC A? MOVL STRING_ADDR(R7), RS ; Get string address 
83 3 6 MOVB #*Aa/0/, (R5)4 : Set first character to '0' 
56 £0 A 67 6 ADDL3 #1, SIG DIGITS(R7), R6 ; Generate at least one extra digit 
5 AC 08 18 : nov LONG COONT(R8), RO ; How many integer longwords? 
OOF : ee BRW NO_INT : If none, skip this part 
55 09 #9, RS ; RS will store least signif digit 
: (lsd) in the high order byte. 
53 655 74 MOVL R5, R3 3; save the old address 
F7 AS = FD8S CF 77 MOVa ASCII_ZEROES, =9(R5) ; Initialize the string to contain 30's 
70 ; _the 9th byte will be filled below 
70 ; R1/R2 must be # quadword for 


54 51 51 00000064 8F 


co 
0 
D 
‘ 
, re EDIV #100, R1, R1, R4 
75 FD74 CF44 0 
54 51 51 00000064 8F re 
f 
1 
B0 
78 
Bo 
1 


MOVW YABLECRSI. -(R5) load correct char rep of the 2 digits 
#100, R1, R1, RS 3; extract two lsd 


0 
75  FD63 CF44 MOV TABLECR4], -(R5) ; load correct char rep of the 2 digits 
51 00000064 8F R 


~“ 
= 
PEER R REEL EERE EEE PEPE PPP PE EEE 


BPE WWW nonononononunonony | 


WIN OS OBNOUE WN O ODN UE WN OWOOnou 
= 
tad 
Pd 
i=] 
9 
gl 
~ 


54 CS a EDLV #100, R1, R1, R4 > extract two lsd 
75 FDS2 CF4&4 MOVW TASL ECR. -(R5) ; load correct char rep of the 2 digits 
54 51 51 00000064 8F 444 EDIV #1 R1, R 3 extract two lsd 
75 FD43 CF44 445 60$: MOVW TABLE CRS -(R5} : load correct char rep of the 2 digits 
- SS 44 ADDB3 = #*A/0/, RI, -(R5) ; character rep needed for Last number 


AOAOOAOOOOOOOOOD YS PF OOe 
>>>> > Pr PP Pr roo "OMS & 
= 
Lf 


0 
0 
0 448 ; Numbers are stored as characters as follows: low order byte is the most 
449 ; significant digit (character), while the high order byte is the least signif 
0 450 ; digit (character). The storage took pee from the high oder digit to the 
0 451 ; low order digit. Since we used an EDIV by 100, 0.1, or 2 zeroes may be 
$28 3 located at_(R5). RO is to contain the number of anaere digits (not char 30) 
453 ; between (R3) and (k5). If R1<>0 then RO=9. If R1=0, there is at Least one 
454 ; zero at (R5) ang possibly another at (R5)-1. For example, 12 --> 325130 
0 $3? 3 while 102 ==> 3230313030. 
50 53 23 C : 43 sas Rs. R3, RO 
QA ° D t38 BNEQ 98$ 
4 D 460 DECL RO 3; At least on Leading 30. 
30 O1A 1 D 461 CMPB 1(R5), #*A/0/ 3; there stilt gould e 1 more 0 
02. 12 D8 £86 BNEQ 98$ : 102 --> 3230313050 by the abov 
DA 46 ; we've already seen rightmost 
50 07 DA 464 DECL RO ; if there is another, subt 1. 
Dc 3._« 465 3; There can be no more consect 0's 
go A7 OA 50 3 oc $96 98$: SUBL RO. #10, OFFSET(R7) 
1 ac Ag Sie E1 46 MULL3 #9, LONG _COUNT(R8), R1 ; Calculate exponent 
E4 a7 C1 0266 46 ADOL RO, R1, DEC_EXP(R75 : Store exponent 
5 0 eB $8 MOVL . RS 3; Move string pointer up by 9 
6 Cc 4 & ? SUBL2 RO, R6 ; Decrease # of digits left to produce 
Fl 471 OUT_LOOP: 
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7 1 F 47 BLEQ OUT_ROUND ; Done if no more sig. Stores 
AC AB OD F 47 ECL LONG_COUNT(R8) ; Decrement longword coun 
50 ACA 0 F 47 MOVL ‘epee », RO 
0 FA 475 BGEQ 
OOF 31 FC $28 BRW OUT PRACT 3 be fraction part if time 
55 0 co FF 477 1$ ADDL2 #9, R5 ; RS will store least signif digit 
$28 : (lsd) in the high order byte. 
53 55 0 47 MOVL R5, R3 3 save the old address 
F7 AS) sO FCE7 CFO? 480 MOVG  ASCII_ZEROES, -9(R5)  : Initialize the string to contain 30's 
481 ; the 9th byte will be filled below 
51 Bs A840 Os«é0 4 ¢ MOVL DyGr rs caer tndd. R1 3 
A i} 9 } 2 7 cnt Ble #*X000000A :; if R1 < 10 you may skip the EDIV 
2 4 1 485 CLRL R ; R1/R2 must be a quadword for the EDIV 
54 51 51 00000064 Hf re 1 ? § aeay #100, R1, R1, R4 3 extract two lsd ' 
75  _FCE1 CF44 0 ; 488 MOVW LABLECRG I. -(R5) ; load correct char rep of the 2 digits 
54 51 51 0000 14 : : 4 epi #100, R1, R1, R4 ; extract two lsd 
75 FCDO CF44 6B 3 491 MOVW Ho he + -(R5) ; load correct char rep of the 2 digits 
56 51 51 00000064 of 9 23 £36 gpiv #100, R1, R1, R4 3 extract two lsd 
75  FCBF CF44 9 te 494 MOVW TABLECR4], -(R5) ; load correct char rep of the 2 digits 
54 $1 44 495 EDIV #100, R1 , 3: extract two lsd 
75__—sw FCBO CF44 B 53 496 60$: MOVW TABLECR43, -(R5) ; load correct char rep of the 2 digits 
75 = 1 59 497 70$: ADDB3 #*A/0/, RI, -(R5) ; character rep needed for last number 
55 00 5D 498 MOVL 3, R5 ; Move steing pointer up by 9 
56 09 C2 0 4 499 SUBL2 #9, R6 3; Adjust # of sig. digits 
8c oi 0363 300 Out _LOoP 
65 308 OUT_ROUND : 
65 03 ; BRB ROUND 
0157 31 65 04 BRwW ROUND 
seh ite 
0 ? 0 ; This code is executed if the value is less than 1. 
és $8 NO_INT: 
FE9C §=—30 6 10 BSBW INIT_FRACT : Initialize the pointers 
68 11 3; and get first 9 digits. 
E4 AZ D4 68 216 CLRL DEC_EXP(R7) ; Calculate exponent 
E4 A7 99 ce 6 13 10$: SUBL2 #9, DEC_EXP(R7) :; Its 9 smaller now 
1 8 7 14 TSTL R1 ; Are digits zero? 
33 7 15 BNEQ 208 
FE ¢ 3 6 1 BSBW See -FRACT ; Get next 9 digits 
F 11 7 1 BRB 10$ : And ry again 
55 09 CO 78 18 20$: ADDL2 #9, R5 ; RS will store least signif digit 
7E 1 ; (lsd) in the high order byte. 
53. 55 0 7E 0 MOVL R5, R3 3; save the old address 
F7 AS FC7B CF D 1 1 MOVQ ASCII_ZEROES, -9(R5) ; Initialize the string to contain 30's 
7 § : the 9th byte will be filled below 
OA } ) ? cnet Ble #*X000000A : if R1 < 10 you may skip the EDIV 
524 C 5 CLRL Re ; R1/R2 must be a quadword for the EDIV 
54 51 51 00000064 Gi . 3 § coiy #100, R1, RI, R4 3; extract two lsd 
75 FC6A CF44 OB 99 8 MOVW TABLECR4], -(RS5) ; load correct char rep of the 2 digits 


Sc FF, ee 
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54 51 51 00000064 20 it 6 cply #190. R1, Ri, RS 3; extract two lsd 
75  FC59 CF44 MOVW TABLECR4], =(R5) ; load t ch f th digit 

545151.” 00000066 R ; EDLY #00, RI, RI, RG laana mu ee 
MOVW He et -(R5) ; load correct char rep of the 2 digits 
EDIV o Ri, R1 isd 


; extract two Ls 
MOVW TABLECRGS, -(R5) ; load correct char rep of the 2 digits 


ADDB3) = #*A/0//, Ri, -(R5) 3 character rep needed for last number 


$ 

$ 

myabors are stored as characters as follows: low order byte is the most 

§ nificant digit (character), while the high order dyte is the seees signif 
o the 


75 a5 F44 

54 551) 5S1__ (000 8F 
75_ FC39 CF44 H 

5 1 30 1 


oo 


Se Se Se Sete Bete WIC 


J y e 
s to contain the number of nonzero digits (not char 30) 
between (R3) and (RS). If R1<>0 then RO=9. If R1=0, there at Least one 
zero at (R5) ang poss igty another at (R5)-1. For example, 12 --> 323130 
while 102 ==> 3230313030. 


; 


an lUShlUShUCGGS SUBL3 RS, R3, RO 
1 «2 TSTL R1 
OA ig BNEQ 98$ 
50 ~° DECL RO 3; At least on Leading 30. 
30 O1AS 91 CMPB 1(R5), #*A/0/ 3; there stitt gould e 1 more 0 
02 12 BNEQ 98$ ; 102 ==> 323503513030 by the above 
; we've already seen rightmost 
50 07 DECL RO 3; if there is another, subt 1. 
; There can be no more consect 0's 
EO A7 OA 50 ¢3 98$: SUBL3 RO, #10, OFFSET(R7) 
E4 A7 28 co ADDL2 RO. DECLERPCR?) ; Calculate exponent 
7. > dO OVL R35, R : Move string pointer up by 9 
56 50 C2 SUBL2 RO, R6 ; Adjust # of sig. digits 
62. =«s171 RB FRACT_LOOP 3; Get 9 more 


a¢ 

; This code starts the fraction portion if the integer portion exists. 

OUT_FRACT: 
BSBW 
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BEBE BE EEE EE EF FAWN WII IWIN AAAI IAAI AI 


D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
E 
E 
E 
E 
E 
E 
E 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
0 


4 
4 
4 
4 
4 
8 
A 
C 
5 
4 
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5 
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0p 
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MEW OS OD NONE WN O ODNAU EWN $$ 9 ODNOAUE WO OONO AEW OO OONOUS 


COO909 090909 SINS SP PAA AAA AAA MIT BB PPE PEE 


(DV IVIV IV IV IV IVLVIVLIVIVLIVIVIVSUSUSUSUSUSVSUSESUSUSUSISUSTSISISISIT STII 


FEOD 30 INIT_FRACT : Initialize and get 9 digits 
55 09 CO ADDL2 #9, RS5 ; RS will store least signif digit 
; (lsd) in the high order byte. 
53 55 bo MOVL R5, R3 3 save the old address 
F7 AS FBFC CF MOVG  ASCII_ZEROES, -9(R5) : Initialize the string to contain 30's 
; .the 9th byte will be filled below 
OA H cnet Ble #*X000000A ; if R1 < 10 you may skip the EDIV 
52 CLRL Re : R1/R2 must be a quadword for the EDIV 
54 51 51 00000064 ef : epi #100, R1, R1, R4 3; extract two lsd 
75 ore sf ae 1 MOV Ho ne Pk ~(R5) ; load correct char rep of the 2 digits 
54 51 51 00000064 20 1 AT a8 » R1, R1, R4 3; extract two lsd 
75 feDA CF44 MOV paphernsd. -(R5) ; load correct char rep of the 2 digits 
a 6S. Bw 0064 : epty ei » RI, R1, R4 3; extract two lsd 
75 onnse CF44 MOVW He at pe ~(R5) : load correct char rep of the 2 digits 
54 51 51 00000064 8&F 4 EDIV #100, R1, R1, R4 3 extract two lsd 
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mm. * 
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F7 AS 


54 51 «51 
54 51511 
54 51 «51 
54 511 


55 


75 
0000 


75 
0 
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I 
9 


94 
95 


9 
9 


oo 
sooo 


AAAAOAO 


DPRDPAAAAAAAAAA AA AAAAAAAAAAAA OS 


rs 


MRO ODN NE WN OOO NAMUE WI $ O ODNAUE WN O 


Character formatting routines 


ops: MOVW 

$: ADDB3 
MOVL 
SUBL2 

PRACT LOY 


EDIV #100, R1, R1, R4 
MOVW Ho et . 
#100, R1, RI 
MOVW TABLECAS). - 
#100, R1, R1 
MOVW TABLECR4], -(R5) 


60$: MOVW T 
70$: Apoes ad / 


Ww 


II_ZEROES, -9(R5) 


#9, Rb 
FRACT_LOOP 
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load correct char rep of the 2 digits 
character rep needed for age number 
Move ote tng pointer up by 

Adjust # of sig. digits 


If not, finish 

get more Jigits 

R5 will store least signif digit 
(lsd) in the high order byte. 

save the old address 

Initialize the string to contain 30's 
the 9th byte will be filled below 

if R1 < 10 you may skip the EDIV 


R1/R2 must be a quadword for the EDIV 
extract two lsd 


; load correct char rep of the 2 digits 
; extract two lsd 


load correct char rep of the 2 digits 
extract two lsd 


load correct char rep of the 2 digits 
extract two lsd 

load correct char rep of the 2 digits 
character rep needed for last number 
Move gtetng pointer up by 9 

Adjust # of sig. digits 

Loop back for more 


z@ 
; This routine rounds the value to the given number of significant 


:; digits, unless 
; at the next dig 


ROUND : 


ADDL RO 
(R 


R5, RO 
108: CMPB Os = (RO), #*A/9/ 
MOVB #A/0/, (RO) 


R6, RS 
#V" TRUNCATE 
OU 
L EXP(R7), RT_RND( 

CMPL RO, SIG_DIGITS(R7) 


Q 
ADDL OFFSET(R7), RO 
STRING _ADDR(R7), RS 
», #*A/5/ 


#V 
ADDL3 DET 


4e9 V.TRUNCATE is on. If so, the value is truncated 


Find least significant + 1 
NIS  ; Truncate if desired 
5$ ; Round to ret of dec pt? 
0 ; Yes, find i 


; Done if rounds to zero 
; Round to A of # sig digits? 
; Yes, round to sign 

: Finish calculation 
; get rounding character address 


ificant digits 


ound? 


; No, uP finish 
: Save position 


If this is a 9... 


; Then it becomes a zero 

; And we continue 

; Else this is last carr 

; Do we need to change offset 
; and exponent? 


a 
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$67 BGEQ cists 3 No 

44 MOVL RO, OFFSET(R7) ; Yes, set new offset 

eh? INCL DEC_EXP(R7) ; Set new exponent 

A 

O68 : ALL done. 

A $50 FINIS: 

A 651 SUBL2 SLOCA, .FRARE . SP ; Restore stack pointer 

1 $36 MOVL R7, R1 ; Restore common frame pointer 
4 e27 RSB ; Return to caller 

é rey: - END 
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RD NOWRT NOVEC LONG 


EXE 


LCL wag NOEXE NORD NOWRT NOVEC BYTE 


LCL 


ABS 
REL 


Attributes 
NOPIC USR CON 
PIC USR CON 


PSECT No. 
0¢ Q.) 
7€ 1,0 


Allocation 
00000000 <( 0.) 
So000s15 ( 1301.) 8 


PSECT name 
ABS. 
_CTSSCODE 
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! Performance indicators ! 


teem er ences meen ee mene neon} 


Phase Page faults CPU Time Elapsed Time 


Initialization 3 00: : e. 0:00: \-§ 
so ner processing Vv 200: y 0: : §-f 
Synbol table sort 13 0: :00. °: : 3 
id table output 3 : ; 8: :00. 34 
Psect synopsis output 0: 3 0 0:00: Be 
Cross-reference output 333 : 2 0: 0: 0.0 
Assembler run totals 401 00:00:02.54 0:00:16.80 


The working set Limit was 1200 pages. 

13641 bytes (27 pages) of virtual memory were used to buffer the intermediate cod 

There were 10 pages of symbol table space allocated to hold 44 non-local and 31 losst symbols. 
655 source Lines were read in Pass 1, prod one object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


-ororomeec= weensear en eone een sos + 


! ; Macro Library statistics : 


Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLB:2 0 SS o- 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRE SSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSCVTDT/OBJ=OBJ$:OTSCVTDT MSRC$:OTSCVTDT/UPDATE=(ENH$:OTSCVTDT) 
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